Sub ԰()

    Dim ŷóġ As Integer
    Dim ġ As Integer
    
    ŷóġ = Sheets("ŷ").Range("D11").Value
    ġ = Sheets("ŷ").Range("D15").Value

    Sheets("ŷó").Range("H" & ŷóġ + 3).Value = Sheets("ŷó").Range("H" & ŷóġ + 3).Value + Sheets("ŷ").Range("F17").Value
    Sheets("").Range("D" & ġ + 3).Value = Sheets("").Range("D" & ġ + 3).Value + Sheets("ŷ").Range("D17").Value

End Sub